home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 30 / PC Gamer IT CD 30 1-2.iso / MEDIA / Net.dxr / Internal_1.ls < prev    next >
Encoding:
Text File  |  1998-03-03  |  2.1 KB  |  83 lines
  1. on prepareMovie
  2.   if the platform = "Windows,32" then
  3.     openXLib(the pathName & "XTRAS32\Fileio")
  4.     openXLib(the pathName & "XTRAS32\FileXtra")
  5.   else
  6.     if the platform = "Windows,16" then
  7.       openXLib(the pathName & "XTRAS16\Fileio")
  8.       openXLib(the pathName & "XTRAS16\FileXtra")
  9.     else
  10.       openXLib(the pathName & "xtras:FileIOXtraFat")
  11.     end if
  12.   end if
  13.   getNetData()
  14.   countNetAds()
  15.   importNetAds()
  16. end
  17.  
  18. on startMovie
  19.   loadBrowser()
  20.   getPrefThingy()
  21.   loadBrowser()
  22.   set the visible of sprite 11 to 0
  23.   set the visible of sprite 12 to 0
  24.   set the visible of sprite 13 to 0
  25.   set the visible of sprite 14 to 0
  26.   set the visible of sprite 15 to 0
  27.   set the visible of sprite 16 to 0
  28.   set the visible of sprite 17 to 0
  29.   set the visible of sprite 18 to 0
  30.   set the visible of sprite 19 to 0
  31.   set the visible of sprite 20 to 0
  32.   set the visible of sprite 21 to 0
  33.   set the visible of sprite 22 to 0
  34.   set the visible of sprite 23 to 0
  35.   set the visible of sprite 40 to 0
  36.   set the visible of sprite 41 to 0
  37.   set the visible of sprite 42 to 0
  38.   set the visible of sprite 43 to 0
  39. end
  40.  
  41. on keyDown
  42.   if the key = "" then
  43.     nothing()
  44.     dontPassEvent()
  45.   end if
  46. end
  47.  
  48. on loadBrowser
  49.   global myFile
  50.   set gOSDir to getOSDirectory()
  51.   put gOSDir & "\" into field "OSPath"
  52.   put gOSDir & "\BROWSER.TXT" into field "ThePath"
  53.   set DaPath to field "ThePath"
  54.   if objectp(myFile) then
  55.     set myFile to 0
  56.   end if
  57.   set myFile to new(xtra("fileio"))
  58.   openFile(myFile, DaPath, 1)
  59.   set TheWeb to readLine(myFile)
  60.   put TheWeb into field "browserSelect"
  61.   closeFile(myFile)
  62.   set myFile to 0
  63. end
  64.  
  65. on TrackClick
  66.   set spriteNum to the clickOn
  67.   set offCast to the castNum of sprite spriteNum
  68.   set onCast to offCast + 1
  69.   set the castNum of sprite spriteNum to onCast
  70.   updateStage()
  71.   repeat while the mouseDown
  72.     if rollOver(spriteNum) then
  73.       set the castNum of sprite spriteNum to onCast
  74.     else
  75.       set the castNum of sprite spriteNum to offCast
  76.     end if
  77.     updateStage()
  78.   end repeat
  79.   set the castNum of sprite spriteNum to offCast
  80.   updateStage()
  81.   return rollOver(spriteNum)
  82. end
  83.